home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / guide / wb-makeinfo.lha / WB-MakeInfo / Install < prev    next >
Encoding:
Text File  |  1995-02-21  |  3.2 KB  |  120 lines
  1.  
  2. ; Installer Skript fuer WB-MakeInfo Amiga (c) Gerhard Leibrock
  3. ; Installer Script for WB-MakeInfo Amiga (c) Gerhard Leibrock
  4.  
  5. (IF (= @language "deutsch")
  6.   (
  7.     (SET M1 "WB-Makeinfo Installer Skript\n\n")
  8.     (SET M2 "Mit Hilfe dieses Skripts wird die Installation des\n")
  9.     (SET M3 "Texinfo-Entwicklungssystems gesteuert.\n\n")
  10.     (SET M4 "(c) Gerhard Leibrock, 1995\n")
  11.  
  12.     (SET Message2 "Wohin soll WB-MakeInfo installiert werden?")
  13.     (SET Message3 "In welcher Sprache soll der Demo-Text erzeugt werden?")
  14.     (SET deutsch  "deutsch")
  15.     (SET englisch "englisch")
  16.     (SET SprachenHilfe "Der Beispieltext enthält ein paar Sätze mit Erläuterungen. Die Sprache, in der diese Sätze abgefaßt sind, kann frei gewählt werden.")
  17.     (SET kein-Paket "Konnte den deutschen Text nicht finden!")
  18.     (SET existiert_schon "Fehler: Ein Verzeichnis namens ``WBMI-SetUp'' existiert bereits!")
  19.     (SET Installiere "Kopiere die nötigen Dateien.")
  20.     (SET Rexx1 "Kopiere die ARexx Skripte\n")
  21.     (SET Rexx2 "(MGuideErr.ced, Start_MGuide.de)\n")
  22.  
  23.     (SET Aus_Wiedersehen "Und weg..")
  24.   )
  25.   (
  26.     (SET M1 "Welcome to WM-MakeInfo installer script\n\n")
  27.     (SET M2 "This script helps you to install this very useful\n")
  28.     (SET M3 "texinfo development package.\n\n")
  29.     (SET M4 "(c) Gerhard Leibrock, 1995\n")
  30.  
  31.     (SET Message2 "Select directory to install WB-MakeInfo.")
  32.     (SET Message3 "Select the sample text's language.")
  33.     (SET deutsch  "german")
  34.     (SET englisch "english")
  35.     (SET SprachenHilfe "The generated sample file will contain some hints and text for better orientation. You can choose your favourite language here.")
  36.     (SET kein-Paket "Could not find the english sample text!")
  37.     (SET existiert_Schon "Sorry, but a directory named ``WBMI-SetUp'' already exists!")
  38.     (SET Installiere "Copying the necessary files.")
  39.     (SET Rexx1 "Copying ARexx scripts to rexx:\n")
  40.     (SET Rexx2 "(MGuideErr.ced, Start_MGuide.de)\n")
  41.     (SET Aus_Wiedersehen "Bye..")
  42.   )
  43. )
  44. (MESSAGE M1 M2 M3 M4)
  45.  
  46. (set dest_dir
  47.     (askdir
  48.         (prompt Message2)
  49.         (help @askdir-help)
  50.         (default "WORK:")
  51.     )
  52. )
  53.  
  54. ; Wenn das Programm später durch exit verlassen wird, gibt Installer den Pfad
  55. ; aus, in dem die Applikation zu finden ist. Hierzu verwendet er die Variable
  56. ; @default-dest.
  57. (SET @default-dest dest_dir)
  58.  
  59. (SET test_dir (TACKON dest_dir "WBMI-Setup"))
  60.  
  61. (IF (EXISTS (test_dir))
  62.     (ABORT Existiert_Schon "(" test_dir ")")
  63. )
  64.  
  65. (MAKEDIR test_dir (INFOS))
  66. (SET pest_dir (TACKON test_dir "Package"))
  67.  
  68. ; Wir können die Beispieltexte in zwei Sprachen anbieten:
  69. (SET sprachen
  70.   (ASKCHOICE
  71.     (PROMPT Message3)
  72.     (HELP SprachenHilfe)
  73.     (CHOICES deutsch englisch)
  74.     (DEFAULT 0)
  75.   )
  76. )
  77.  
  78. (COPYFILES
  79.     (PROMPT Installiere)
  80.     (help @copyfiles-help)
  81.     (SOURCE "WBMI-Setup")
  82.     (DEST test_dir)
  83.     (PATTERN "#?")
  84. )
  85.  
  86. (IF (= sprachen 0) ; Deutsch
  87.   (
  88.     (COPYFILES
  89.     (PROMPT Installiere)
  90.     (SOURCE "Deutsch-Paket")
  91.     (help @copyfiles-help)
  92.     (DEST pest_dir)
  93.     (PATTERN "#?")
  94.     )
  95.   )
  96. )
  97.  
  98. (IF (= sprachen 1) ; Englisch
  99.   (
  100.     (COPYFILES
  101.     (PROMPT Installiere)
  102.     (SOURCE "Englisch-Paket")
  103.     (help @copyfiles-help)
  104.     (DEST pest_dir)
  105.     (PATTERN "#?")
  106.     )
  107.   )
  108. )
  109.  
  110.  
  111.   (COPYFILES
  112.     (PROMPT Rexx1 Rexx2)
  113.     (SOURCE "Rexx")
  114.     (help @copyfiles-help)
  115.     (DEST "rexx:")
  116.     (PATTERN "#?")
  117.   )
  118.  
  119. (EXIT Auf_Wiedersehen)
  120.